home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / pascal / ptrp10.zip / TEST6.TRP < prev    next >
Text File  |  1994-05-17  |  233b  |  12 lines

  1. procedure main
  2.         local 
  3.                 v : integer;
  4.                 x : word = 1;
  5.         endvar
  6.         v := 15;
  7.         while (x < v)
  8.                 writeln(x)
  9.                 x := x + 1
  10.         endWhile
  11. endproc
  12.